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EDTSCHMENTTRM = test for entity delimiter 15-sep-1984 $3:38:63 othe Bliss-32 V4.0-74 Page 1. 


14-Sep- DT.SRCICHMENTTRM.BLI; (1)) 
; 1 01 ZTITLE ‘EDTSCHMENTTRM = test for entity delimiter’ H 
: § 8 MODULE EDTSCHMENTTRM ( ! Test for gre ity delimiter ; 
; Z st om = *v04-000' ! File: CHMENTTRM.BLI Edit: JBS1003 : 
; 5 B28? 1 BEGIN : 
; 6 O06 ,} : 
4 4 ait 4 1 lee ee eRe EAA AAA ARATE ETRE eeeeeeeeeeeeneeeeeeAeeeee | Ps 
$ 0008 1 !* H 
; 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * : 
3; 0010 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
; \} oot) : ‘* ALL RIGHTS RESERVED. * ; 
; ; * : 
; ig $018 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * | : 
; 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
:: 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
; 9016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 3 
s 7 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * | : 
; 13 ots : _* TRANSFERRED. * : 
; 'e * : 
; @& 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
; 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
F $$ $0¢8 : 1* CORPORATION. * | F 
3 'e ® | Py 
>; 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * : 
3. «fe 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
; @& 0026 1 !* * : 
‘Ree 0027 1 !* * : 
3 28 0028 1 eee e aka ra eae eee eRe E ATTA ATA AAT AAA AT AAAAAAAAERAAAA KARA ee 3 
: 9 0029 1! : 
: $6 0030 1 : 
coe. 0031 1 !++ . : 
. a 0032 1 ! FACILITY: EDT == The DEC Standard Editor : 
| 2» 0035 1! : 
; 0034 1 ! ABSTRACT: | : 
; 0035 1! ; | : 
ae 0036 1! This module determines if the current character is an : 
Sy a 0037 1! entity delimiter. : 
; = 0038 1! | : 
; +4 4 1 : ENVIRONMENT: Runs at any access mode - AST reentrant : 
3 re Ones } : AUTHOR: Bob Kushlis, CREATION DATE: Unknown : 
; «6453 0045 1 ! MODIFIED BY: : 
3; 4b 044 1! ; 
; «645 045 1 ! 1-001 = Original. DJS 04-Feb-1981. This module was created by : 
: 646 0046 1! extrecting the routine EDTSSTST_ENTDELIM from module CHANGE.BLI. : 
: 47 0047 1 ! 1-002 - Regularize headers. JBS 02-Mar-1981 3 
; 648 0048 1 ! 1-003 - Improve the appearance of the Listing. JBS 13-Jun-1983 : 
; 49 0049 1 I~ : 
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EDTSCHMENTTRM EDTSCHMENTTRM = test for entity delimiter 18-56 -1984 23:52: AX-11 Bliss-32 V4.0-742 Page 
042000 Declarations . 12-8 08=198e $3 :33:38 EDT. SRCJICHMENTTRM.BLI;1 . (8 
3 g 0080 ! XSBTTL ‘Declarations’ 
: 54 053 1) TABLE OF CONTENTS: 
3 5 etd i! 
; $ 0055 (1 
be | B08 1 REQUIRE "EDTSRC:TRAROUNAM'; 
; 3 0495 1 
: 59 bees 1 FORWARD ROUTINE 
; 29 oh 44 \ EDTSSTST_ENTDELIM; ! Determine if the current character is an entity delimiter | 
: 3 its i i INCLUDE FILES | 
: 664 $394 1! 
; 65 b20¢ 1 
: 66 0503 1 REQUIRE ‘EDTSRC:EDTREQ’; 
: 67 0638 #1 
: 68 0639 1! 
H 69 0640 1 ! MACROS: 
- 7 0641 1! 
3 71 064 1! NONE 
. 0643 1: | 
eee! 0644 1 | EQUATED SYMBOLS: 
74 0645 1! 
. 0646 1! NONE 
i. - 0647 1! 
BR cg 0648 1 ! OWN STORAGE: 
> 7 0649 1! 
a 0650 1! NONE | 
; & 0651 1! 
3 81 065 1 ! EXTERNAL REFERENCES: 
ci, ae 0653 1! 
3 83 0654 1! In the routine 
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-TITLE EDTSCHMENTTRM EDTSCHMENTTRM = test for entity d 
; elimiter 
-IDENT \V04-000\ 
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v04-000 EDISSisi ENTDELIN - test for tatity delimiter 12-Sep-19 4 $3 :33:8 EDT.SRCJCHMENTTRM.BLI;1 . (3) vi 
; $ 5 } ZSBTTL "EDTSSTST_ENTDELIM = test for entity delimiter’ ; 
; Ha 6 ; 1 GLOBAL ROUTINE EDTSSTST_ENTDELIM ( ! Test for entity delimiter ; 
; 8 6 8 1 TERM_STRING ' Counted string of delimiter characters ; 
> 659 1 = 3 
:; 90 660 1 3 
7; 91 661 1 ++ ; : 
3 $666 : } FUNCTIONAL DESCRIPTION: | : 
3 94 bere : This function returns a 1 if the current character is an entity delimiter. | : 
; 38 Rey : FORMAL PARAMETERS: : 
3 4 D668 : TERM_STRING a counted string of valid delimiter characters : 
; 100 0670 1 ! IMPLICIT INPUTS: $ 
s 101 0671 1! : 
: 106 0672 1! EDTSSA_LN_PTR ; 
; WW 0675 1! F 
; 104 0674 1 ! IMPLICIT OUTPUTS: 3 
; 105 0675 1! F 
; 106 0676 1! NONE 3 
s 107 0677 1! 3 
; 108 0678 1 ! ROUTINE VALUE: 3 
: 109 0679 1! f : 
: 110 0680 1! 1 Character is a delimiter $ 
. ey 0681 1! 0 Character is not a delimiter F 
s 1g 0682 1! | : 
; 11 0685 1 ! SIDE EFFECTS: ; 
>: 114 0684 1! F 
. Sse 0685 1! NONE : 
3s 116 0686 1! ; 
: #117 0687 1 !-- | 2 
: 418 0688 1 : 
3: 119 0689 2 BEGIN ‘ 
; 120 06 é F 
3 1s) 0691 EXTERNAL : 
3 Vee 069 EDTSSA_LN_PTR; ! Current character pointer | : 
: is? 069 : 
: 126 0694 LOCAL : 
: 125 0695 NT, | : 
: 126 069 TS; | : 
: 127 069 : 
: 128 069 TS = . TERM STRING: : 
3; 129 069 NT = CHSRCRAR_A (TS); | : 
; 150 0700 : 
: 13) 44 DECR I FROM .NT - 1 T0 0 DO . 
; 138 708 IF (CHSRCHAR (.EDTSS$A_LN_PTR) EQL CHSRCHAR_A (TS)) THEN RETURN (1); ; 
s Ye 0705 RETURN (0); ; : 
3: «4136 0706 END; ! of routine EDTSSTST_ENTDELIM : 
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_EDTSCODE + 0000 


Routine Base: 


! <BLF /PAGE> 


36 bytes, 
0707 1 
0708 1 


3; Routine Size: 


M 2 
DISCHMENTTRM  EDTSCHMENTTRM = test for entity delimiter 15-Sep 
04-000 EDTSSTST_ENTDELIM = test for entity delimiter 14-Sep 
140 9708 1 END 
141 710 «#1 
142 711 +O ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 36 NOVEC,NOWRT, RD, EXE, SHR, 
Library Statistics 
onenee Symbols -------- 
File Total Loaded Percent 
-$255SDUA28: s FEOT SRE ceOT heer | 377 0 0 
“$255$DUA28: CEDT.SRCIPSECTS.L32;1 2 1 50 
COMMAND QUALIFIERS 
; Size: 36 code + 0 data bytes 
; Run Time: 00:09.5 


; Elapsed Time: 


BLISS/CHECK= (FIELD, INITIAL OPTIMIZE) /NOTRACEBACK/L1S=L1S$: CHMENTTRM/OBJ=OBJS : CHMENTTRM MSRC$: CHMENTTRM.BLI/UPDATE=(ENHS:C 


; Lines/CPU Min: 4514 
: ey Nols Sie 12165 


Used: 57 pages 


; a Complete 


rf $3'3¢: 3 VAX-11 Bliss-32 V4.0-742 


2:22:28 CEDT.SRCICHMENTTRM.BLI;1 


! of module EDTSCHMENTTRM 


LCL, REL, CON, PIC,ALIGN(2) 


Pages Processing 
Mapped Time 
40 00:00.2 
7 00:00.1 
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